200
Can you add text with links in the event

' AnchorClick event - Occurs when an anchor element is clicked.
Private Sub Schedule1_AnchorClick(ByVal AnchorID As String,ByVal Options As String)
	With Schedule1
		Debug.Print( AnchorID )
		Debug.Print( Options )
	End With
End Sub

With Schedule1
	.Calendar.Selection = #6/20/2012#
	With .Events
		.Add(#6/20/2012 9:00:00 AM#,#6/20/2012 11:00:00 AM#).ExtraLabel = "<aID1234;OPTIONS-1234>click me</a>"
		.Add(#6/20/2012 11:00:00 AM#,#6/20/2012 1:00:00 PM#).ExtraLabel = "<a1235;OPTIONS-1235>click me</a>"
	End With
End With
199
How do you adjust the font type and size of the event (method 2)

With Schedule1
	.Calendar.Selection = #6/20/2012#
	.DefaultEventShortLabel = "<font mistral;12><%=%256%>"
	.DefaultEventLongLabel = .DefaultEventShortLabel
	With .Events
		.Add #6/20/2012 9:00:00 AM#,#6/20/2012 11:00:00 AM#
		.Add #6/20/2012 11:00:00 AM#,#6/20/2012 1:00:00 PM#
	End With
End With
198
How do you adjust the font type and size of the event (method 1)

With Schedule1
	.Calendar.Selection = #6/20/2012#
	With .Events
		With .Add(#6/20/2012 9:00:00 AM#,#6/20/2012 11:00:00 AM#)
			.ShortLabel = "<font tahoma;12><%=%256%>"
			.LongLabel = .ShortLabel
		End With
		With .Add(#6/20/2012 11:00:00 AM#,#6/20/2012 1:00:00 PM#)
			.ShortLabel = "<fgcolor FF><i><font Mistral;16>your caption</i></font> goes here"
			.LongLabel = .ShortLabel
		End With
	End With
End With
197
How can I change the shape of the line to be shown when user drag and drop data over the control

With Schedule1
	.OLEDropMode = 1
	.VisualAppearance.Add 1,"C:\Program Files\Exontrol\ExSchedule\Sample\EBN\dash1.ebn"
	.Background(97) = &H1000000
End With
196
How can I highlight the date-time from cursor when the user drag and drop data over the control
With Schedule1
	.OLEDropMode = 1
	.Background(97) = RGB(1,0,0)
End With
195
How can I start drag and drop events

' OLEStartDrag event - Occurs when the OLEDrag method is called.
Private Sub Schedule1_OLEStartDrag(ByVal Data As Object,AllowedEffects As Long)
	' Data.SetData("to be carried by drag and drop")
	With Schedule1
		AllowedEffects = 1
	End With
End Sub

With Schedule1
	.BeginUpdate 
	.AllowMoveEvent = 0
	.AllowCreateEvent = 0
	.OLEDropMode = 1
	.Calendar.Selection = #6/27/2012#
	With .Events
		.Add(#6/27/2012 11:00:00 AM#,#6/27/2012 0:30:00 PM#).BodyBackColor = RGB(255,0,0)
		.Add #6/27/2012 11:30:00 AM#,#6/27/2012 1:30:00 PM#
		.Add #6/27/2012 8:30:00 AM#,#6/27/2012 11:45:00 AM#
	End With
	.EndUpdate 
End With
194
Is it possible to show the today date with a different foreground color

With Schedule1
	.Calendar.Selection = "month(value) = month(date(``)) and (int((yearday(value) -1- ((7-weekday(value - yearday(value) + 1)) mod 7) )/7) = int((yearday" & _
"(date(``))-1)/7))"
	.Background(14) = .BackColor
	.Background(30) = RGB(255,0,0)
End With
193
How can I hide the rectangle around the today date

With Schedule1
	.Calendar.Selection = "month(value) = month(date(``)) and (int((yearday(value) -1- ((7-weekday(value - yearday(value) + 1)) mod 7) )/7) = int((yearday" & _
"(date(``))-1)/7))"
	.Background(14) = .BackColor
End With
192
Is it possible to change the appearance of event with no status using the EBN (office theme)

With Schedule1
	.BeginUpdate 
	.VisualAppearance.Add 1,"gBFLBCJwBAEHhEJAEGg4BeoDg6AADACAxRDAMgBQKAAzQFAYaBqGqGAAGKD4JhUAIIRZGMIjFDcEwxC6NIpAWCYRDGEwCQiNQyRDCYYw+GYCJBmKKYcgONYgQLHcgxD" & _
"IsJw/FyERjjeB4egkaZHRZOUZTZQsBxRAZ2Q4EQAKRpOFY9DTPcr0HR8ZQ+BKNAYkSjQAp2VZUVJFUqDKItVzbBIaRgteA7RrOXpjRjYEBxDKcZyxLqVLToiqcRz7Pqb" & _
"ZrjeioZoyBI+QjgYAUFDeGSTDQ3bwAA4rEqaaZnVbkOQQJTcNy7EKvYRzGA7CgPHI5QjnVR6BjUJztWyIbp3G4rchqH4RaqAF5ZXg9ez/FIaJbnUaMWhXFqOABwPC0Xo" & _
"IGuAJklAeR6H2dAngcEZWnQehzCsd4SmGPJzF2Io1l2fhrgeUpxHOLIAggSRAlIYw6B0ThGFyEJ4CEAwQgSV51BkDYQhCIQJHgGp0gAGBFgCB55nAAC3HCbYEGEOBIHO" & _
"BZhggZgagYIRIHYEoFCGMoSCKCJiEiFgjgaYZjjYGIJiKSI2CeBZiAgXgugyYxIgYNINmIaJaDiDpKEiag8g2Y5on4M4GkqGQWEaEZkgkJhKhEZBJC4ToTmSSBqFCFJk" & _
"ikNhUhXQpaFiFJlikbhPhcZZpC4GwqmYSYWGaGZmgmJhkhiZopjYboamGKY+HKGhmkmTh2CqZxZl4coeGeKY6HyHxmigbIuiCaBKBaBohmiCgOgKIhokoNoKgaKJqEaC" & _
"IimkwwuiUKVyBiJk7m6HIiGGMqbCiSwqhaI4pmqComiOKBqiqNouioKpKj6JQsiqapOiuBoqnqZouiwaxahqOooiuSp+j+BpLEsFpGjGbILCaSoxGwSwuk6M5skgapQj" & _
"SbIrDaVI15AWpYjSbYrG6T43G2a1Ui2bhLhaZo5m6C4mmSOJuiuNpujqYYrj6co6G6S5OnYLZvFuXpyj4b4rjqfI/G7aA7kCcBMBcBpBnCDAPAKQhwkwN1wjCbBHAiQp" & _
"xCwVI7kVlJHBiRhwlwbzrHGbB/AeBpLlyFI/kmcoMiMJQvHKLIbCeSpyjyEwwkycxMk8LZMDMLIzC+S4LnyVw+kwYYsn8P5KHOPJoj+TnQl8NJSjMPJnEzmR9CMQpUnO" & _
"SBvESVZ1g0ZwplWNYtHcXZXDWbYHESWA2C2Fxklkdgdh8aJXmGLYvGaBoME2RxylydxNlcdpcGGPZfHqXp3C2M4fIv3sD3ACMETAnALgJF+PAbgPh7jEHiFsXgNgxjyA" & _
"4I8EoyR5CcFeCEY48huDPBqMsYYXBvg9GUPMDg/wiBjHoD0D4PRpD0G4NdcY8hoDZEqNcewHRHhlGyPYTofwujaHuB0Z4bQGh3C6O9ng9xvAJEqA0TIfgXiNHGPkDznx" & _
"xD4E8F8To5x8iQGuKEdI+QvBvFSOuKotxYjpGGGYN4vR3j8A+A8Yo8R9jeHeMkeY/QPgsBoGcPonw3jdHuP4D4jxsgNH8F8V47R7D+E+L8eo+A/g/G+PwGYnx1j/D+FA" & _
"AwAQfhoASAEL4lADiBAePEeowBcANAGGAOgCQhhDCMAoIIWAWgFHAMQDIghEBuAaEEbAPQChgHIB8QgUAxAQGEDgJgNAwgsBOIQJAbUpCoBoIoCAtAJiFGgMEBQwwqBj" & _
"AWCEYAcwigoCgIAQBAQ=="
	.OnResizeControl = 768 ' OnResizeControlEnum.exChangePanels Or OnResizeControlEnum.exHideSplitter
	.Calendar.Selection = #6/27/2012#
	.BodyEventBackColor = &H1000000
	.ShowStatusEvent = False
	.DefaultEventPadding(-1) = 3
	.Background(75) = &H1000000
	.Background(79) = &H1000000
	With .Events
		.Add(#6/27/2012 11:00:00 AM#,#6/27/2012 0:30:00 PM#).BodyBackColor = RGB(255,0,0)
		.Add(#6/27/2012 11:30:00 AM#,#6/27/2012 1:30:00 PM#).BodyBackColor = RGB(0,255,0)
	End With
	.EndUpdate 
End With
191
Is it possible to change the appearance of event's status using the EBN (office theme)

With Schedule1
	.BeginUpdate 
	.OnResizeControl = 768 ' OnResizeControlEnum.exChangePanels Or OnResizeControlEnum.exHideSplitter
	With .VisualAppearance
		.Add 1,"gBFLBCJwBAEHhEJAEGg4BKYCg6AADACAxRDAMgBQKAAzQFAYaBqGqGAAGKD4JhUAIIRZGMIjFDcEwxC6NIpAWCYRDEMQ0AJCIzDJCIZBkHCPRjASQZUhmHIDTbIEBxf" & _
"IMIxLE9IMwxfA8ax1GifI6hGSYDa0HAkABTVQRLL4aSDK6NaYmSL5DhkBokUpGKTpOhgATHMqqIzGURZNquEQ1DBbEI3BaUaw/CKRLAoahqVpqK4tS7MNa3XKkcxzD6e" & _
"IypGBKAgmQoJDLRGIxTiYACxPQACzsEAKapKUZPRZVNYQJQlNRDLiEcrgOr4DxqO4aWbZViaDZVawlNy5bhtfaqGrfKYJYLrWCTbh0Tz9KzIJJwHbcKxjKrDczjEoSVw" & _
"iAmSgcGmIxaggHBHFmFpoHEJwbg8FpammO5bEUaxbm6ZwDH+YI7EIQQQhKAYkkYdA6hyDI4ngGRIA8AwQgSV51BkDYQhCIQJHeHAkCAGBFgGR55m8CQBkONkYCEEgxGe" & _
"BZJHQDgTgWFhFgyf4HmICByBqBRhmiAgmD+YggAIHIJmKSIhGMQJijiNgmgoYwYkoH4NCIWJaC6BhiiiZg2g4CR4moN4LmOWQGEKEAkCibgwg+vwiEeEQjFifhQhMIpZ" & _
"DoOoViUKJyFGExlDkGhXhcZIZGIXIWiUSIyGKFRmAkPhkheJYZC4bIYmaaYGGmF5mjmSh1hqJwZmIRYdieGZSH2GxnjmahbhoJx5nqAYhigOYaHOIAohiHhniKKBaDIZ" & _
"YjiiOZCgeJImnoEh/iWKJYk6FYmikehyhOJ4pBqCoZiQKY6gKHYIGmeoiiGKoqDqMoliwKh6FKM4riqOQOjeLYqhqYoxi6K5anKL4visWoSkGMYsDsCo5hKLIbCKS4jm" & _
"yKp+kyM5qlsRpFiyLB7GKTY2i0Spuk6NItAsfpXjALY7hKXYIk6Wh2CmBphgqOgTjuYhIHachAlAECAg="
		.Add 2,"CP:1 0 0 1 0"
		.Add 4,"gBFLBCJwBAEHhEJAEGg4BGoDg6AADACAxRDAMgBQKAAzQFAYaBqGqGAAGKD4JhUAIIRZGMIjFDcEwxC6NIpASLoJDCH4mSTHYxyHIMWwtDiBZgkCA4fiGEYnThKM5Sd" & _
"KsXABG6NErSdDAAoKRIVTjAcsVTicAo+R7TcYgLBNAQHKQAHZDQRKZpuFoRRKJNgDLYUEhqGCyYDseyZNj2GZYRDPVqzWAFFzrFSqLilaYpSh+bpfSRSVI3PakQz+LCN" & _
"CzwEAKYoaRZDRZgdzUbItMYNBKsMQgO6QAwqNKYQjWVaaFgEYzJMa2LTiHSqQhrGqMQjnV5ZPgVzZKZZGVQ1LBOOZfEJ2XacSqeCyWEqnRryFpWRpfGXiX7EOY7HaePw" & _
"DAQQhKAaEwZlCahyDKDBjm4a5JAiG5jgyDYhCKDZukYSAYgsLAzh0RBlBqBAkA4Ox+n+H5AAGDJWDWH5jFmdBQl8Z5yAGAZfngDZ6H9HIiACAhUCgMgPgSYAYA4EoDiE" & _
"WBGBiAxhAIXAADITRzGIIA2AyAxYleCJhGiFgnggYg4iIEYImKKIqC6B4iliMg2DYIRolYIoLA2ExmDmDwNhiNg9g+Y44goPYMmGeJeEKD4hBMMJbDaTIYnYTg2mUOBa" & _
"FOFZknkVhNhYZZJFIT4ViWWRElmFohmkYhehQJA4ESTg3A2WYuG2GwmmgWhuhyZwJjIcodGaeZmGANpnEMdhkAAJ5ZE4cYaieCZ2HeHhoGoEoIh4IRjESXg3iialFiQa" & _
"JaE6Fokg2ahWhiJBpEgRociWaZYHqH4mmiehqiOKBAAqDJUDgTgaiyYYFiqapGiyK4rAqTosiQa14jKKxrGqPo6i8a46laPIwmuGB6juMBrnsEo9jCLB6jKTIwCyawmk" & _
"2L4sGsQpDjObIrFAAA2E4U4WlyN4tlsfgWjebhLgaXY4waApqjoLorhSZY7C6a4KBGPBuhuQppjyIZrlKa48m8e5WBENwOHOIyNDAHAOBaQJwgwFwBgWDZziSaZCHAQ4" & _
"jAeQoxBwGp/kUMQME8FZFDGLBDBaB4xmwcwXkacQcDMDpDE6HIjCiSYyhyHwuDocpMisL5MHKfIuBGTIylyZgWDgToziyYg7A6TJ8myTwO7KPZRDQLQTEYOp0g0AxKgQ" & _
"dBNDcQ5PHSPRHEeVQ1A0XxMlaNRdGsT4Hg4Q44m2WB2D2CxkgWNhNicZpYjaDYvGWW52l2PxqDsdz+meBBOGOIEcAdAPAnEcPIPAbx4C2H+MEd4XAHDxGEPEDgBh6jBD" & _
"iDwEI4QFhvEOI8EYyR3i8EMPsZQcguCsBGMwOQMApj5GYEAPg8RtAADoDAFY9xpiAAQAggIA="
	End With
	.Calendar.Selection = #6/27/2012#
	.StatusEventColor = &H2000000
	.BodyEventBackColor = &H4000000
	.Background(75) = &H1000000
	.Background(79) = &H1000000
	.StatusEventSize = 6
	.DefaultEventPadding(-1) = 2
	With .Events
		.Add(#6/27/2012 11:00:00 AM#,#6/27/2012 0:30:00 PM#).BodyBackColor = RGB(255,0,0)
		With .Add(#6/27/2012 11:30:00 AM#,#6/27/2012 1:30:00 PM#)
			.BodyBackColor = RGB(0,255,0)
			.StatusColor = RGB(0,0,128)
			.ExtraLabel = "Point"
		End With
		With .Add(#6/27/2012 8:30:00 AM#,#6/27/2012 11:45:00 AM#)
			.StatusColor = RGB(255,0,255)
		End With
	End With
	.EndUpdate 
End With
190
Does your control support subscript or superscript, in HTML captions

With Schedule1
	.BodyEventBackColor = RGB(240,240,240)
	.Calendar.Selection = #6/20/2012#
	With .Events
		.Add(#6/20/2012 9:00:00 AM#,#6/20/2012 11:00:00 AM#).ExtraLabel = "<sha ;;0>Event <b><font ;6><off 4>1"
		.Add(#6/20/2012 11:00:00 AM#,#6/20/2012 1:00:00 PM#).ExtraLabel = "<sha ;;0>Event <b><font ;6><off 4>2"
		.Add(#6/20/2012 1:00:00 PM#,#6/20/2012 3:00:00 PM#).ExtraLabel = "<sha ;;0>Event <b><font ;6><off -6>2<off 4>3<off 4>1"
	End With
End With
189
How can I hide the scheduler part of the control, so I can use the calendar panel only

With Schedule1
	.OnResizeControl = 257 ' OnResizeControlEnum.exHideSplitter Or OnResizeControlEnum.exResizePanelRight
End With
188
I see how I can specify a non-working day pattern for weekends, but how can I specify non-working days for holidays

With Schedule1
	With .Calendar
		.SelectDate(#5/28/2012#) = True
		.Select 3
		.SelectDate(#6/5/2012#) = False
		.Select 19 ' SelectCalendarDateEnum.exSelectToggle Or SelectCalendarDateEnum.exSelectWeek
		.SelectDate(#6/12/2012#) = False
		.Select 19 ' SelectCalendarDateEnum.exSelectToggle Or SelectCalendarDateEnum.exSelectWeek
	End With
	With .NonworkingTimes
		.Add "month(value) = 5","00:00","24:00",-1
		.Add "value in (#6/5/2012#,#6/7/2012#)","00:00","24:00",-1
	End With
End With
187
How do I enable the scrollbar-extension, as thumb to be shown outside of the control's client area

With Schedule1
	.BeginUpdate 
	.ScrollBars = 15
	.ScrollPartVisible(0,65536) = True
	.ScrollPartVisible(1,65536) = True
	.ScrollPartVisible(2,65536) = True ' &H2
	.ScrollWidth = 4
	.Background(276) = RGB(240,240,240)
	.Background(260) = RGB(128,128,128)
	.ScrollHeight = 4
	.Background(404) = .Background(276)
	.Background(388) = .Background(260)
	.Background(511) = .Background(276)
	.EndUpdate 
End With
186
How can I show contiguously the days, in a single row

With Schedule1
	With .Calendar
		.SelectDate(#5/20/2012#) = True
		.Select 3
		.SelectDate(#5/27/2012#) = False
		.Select 19 ' SelectCalendarDateEnum.exSelectToggle Or SelectCalendarDateEnum.exSelectWeek
	End With
	.ShowViewCompact = 1
End With
185
How can I show contiguously the days

With Schedule1
	With .Calendar
		.SelectDate(#5/20/2012#) = True
		.Select 3
		.SelectDate(#5/27/2012#) = False
		.Select 19 ' SelectCalendarDateEnum.exSelectToggle Or SelectCalendarDateEnum.exSelectWeek
	End With
	.ShowViewCompact = -1
End With
184
How can I display the time in european format with no usage of AM/PM

With Schedule1
	With .TimeScales.Item(0)
		.MajorTimeLabel = "<%hh%>:<%nn%>"
		.Width = 32
	End With
	With .Calendar
		.Selection = #6/11/2001#
		.ShortTimeFormat = "<%h%>:<%nn%>"
	End With
	With .Events
		.Add #6/11/2001 10:00:00 AM#,#6/11/2001 1:15:00 PM#
		.Add #6/11/2001 10:30:00 AM#,#6/11/2001 2:30:00 PM#
	End With
End With
183
Is it possible to zoom the schedule component using a key and scrolling the wheel (not pressing it and moving the mouse)
With Schedule1
	.AllowResizeSchedule = 19 ' AllowKeysEnum.exCTRLKey Or AllowKeysEnum.exMiddleClick
	.AllowMoveSchedule = 3
End With
182
How can I change the format of the date being displayed in the calendar panel

With Schedule1
	.Calendar.HeaderDayLabel = "<sha><%mmmm%></sha> <sha><fgcolor=FF0000><%yyyy%></fgcolor></sha>"
End With
181
How can I display the Year in Thai, Buddhist, Korean format

With Schedule1
	With .Calendar
		.FirstWeekDay = .LocFirstWeekDay ' .LocFirstWeekDay
		.MonthNames = .LocMonthNames
		.WeekDays = .LocWeekDays
		.AMPM = .LocAMPM
		.HeaderDayLabel = "<%mmmm%> <fgcolor=FF0000><%loc_yyyy%>"
	End With
	.HeaderDayLongLabel = "<|><%dddd%>, <%mmmm%> <%d%>, <fgcolor=FF0000><%loc_yyyy%><|><%dddd%>,<%mmmm%> <%d%>,<fgcolor=FF0000><%loc_yyyy%><|><%dddd%>, <%" & _
"mmmm%> <%d%>,`<fgcolor=FF0000><%loc_yy%><|><%dddd%>, <%mmmm%> <%d%><|><%dddd%>, <%m3%> <%d%><|><%dddd%>, <%d%><|><%dddd%><|><%d3" & _
"%><|><%d2%><|><%d1%>"
End With
180
May I specify a fixed width for my dates, so user can not resize it
With Schedule1
	.BeginUpdate 
	.OnResizeControl = 3585 ' OnResizeControlEnum.exCalendarAutoHide Or OnResizeControlEnum.exCalendarFit Or OnResizeControlEnum.exChangePanels Or OnResizeControlEnum.exResizePanelRight
	.AllowResizeSchedule = 0
	.AllowMoveSchedule = 3
	.ShowViewCompact = -1
	.DayViewWidth = 96
	.DayViewHeight = 256
	.EndUpdate 
End With
179
How can I change the format of date being displayed on the header
With Schedule1
	.HeaderDayLongLabel = "<|><%dddd%>, <%d%> <%mmmm%>, <%yyyy%><|><%dddd%>, <%d%> <%mmmm%>, <%yyyy%><|><%dddd%>, <%d%> <%mmmm%>,`<%yy%><|><%dddd%>, <%d%>" & _
" <%mmmm%><|><%dddd%>, <%d%> <%m3%><|><%dddd%>, <%d%><|><%dddd%><|><%d3%><|><%d2%><|><%d1%>"
End With
178
Is there any notifications for exchanging the panels at runtime
' LayoutEndChanging event - Notifies your application once the control's layout has been changed.
Private Sub Schedule1_LayoutEndChanging(ByVal Operation As Long)
	With Schedule1
		Debug.Print( "End exLayoutExchangePanels(16)" )
		Debug.Print( Operation )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub Schedule1_LayoutStartChanging(ByVal Operation As Long)
	With Schedule1
		Debug.Print( "Start exLayoutExchangePanels(16)" )
		Debug.Print( Operation )
	End With
End Sub

With Schedule1
	.AllowExchangePanels = 1
	.AllowCreateEvent = 0
End With
177
How can I handle the All-Day events only

With Schedule1
	.BeginUpdate 
	.OnResizeControl = 3072 ' OnResizeControlEnum.exCalendarAutoHide Or OnResizeControlEnum.exCalendarFit
	.ShowAllDayHeader = True
	With .Calendar
		.SelectDate(#5/8/2012#) = True
		.Select 3
		.SelectDate(#5/15/2012#) = False
		.Select 19 ' SelectCalendarDateEnum.exSelectToggle Or SelectCalendarDateEnum.exSelectWeek
	End With
	.TimeScales.Item(0).Visible = False
	.Events.Add(#5/8/2012#,#5/17/2012#).AllDayEvent = True
	.EndUpdate 
End With
176
Is it possible to show the All-Day events with EBN including the next/prev signs (2)

With Schedule1
	.BeginUpdate 
	.OnResizeControl = 3072 ' OnResizeControlEnum.exCalendarAutoHide Or OnResizeControlEnum.exCalendarFit
	.ShowAllDayHeader = True
	With .Calendar
		.SelectDate(#5/8/2012#) = True
		.Select 3
		.SelectDate(#5/15/2012#) = False
		.Select 19 ' SelectCalendarDateEnum.exSelectToggle Or SelectCalendarDateEnum.exSelectWeek
	End With
	.VisualAppearance.Add 1,"gBFLBCJwBAEHhEJAEGg4BbkMQAAYAQGKIYBkAKBQAGaAoDDcOILQiMQzjTBMKgBBCLIxiGK4DhiF4aRSBMIwYAAYhyG4BIRGcYJEDMOQzR4MICSBKkMhlDiPY5mUAJE" & _
"iSJg3TDQlzpAoSGoeUhGTZnQaQASXJqKZ6kegoEh4MopTTHQLRUB8EyTDKnaapSJpEDINQlWTZciDKKFUQTNi3KxraKqbjqO47VJKEpSZBMXRhBIYZCueZZXgPBY5YhI" & _
"E64BSeASoACDZzoaAwTrOAwUZZFVg2DSOGSBRzQMKrCZKagnFYDVzleYxLjdR47Qy1Ih2GA7QqubYkUTmOjgBaoAYxQaaLx0OS5Rj4NAwZLFXI1eAGd6BDLhLz4XAOHx" & _
"HjmAZvGOWoeG8PhBiMGIMGOQxZCQOBpGUG4NncEIdB8MxLhSbpRnMIIIEkQJSGMOgdE4RhfAwJZtAwEIEleeQZA2EIQiECR2ludB8BgRYMAeKYDByB4DG5F4hBgTgWgU" & _
"YYIFIGoFmGOBlAmBJMmMQJwggYg4goJIJmIaImCWCpigiLgTgeYQYjYMoKiMOIyDSCIinQDggg2YxonYNYNGOEACDuD4jkifhFg4IQYkCW4RiQSQ2ECEhjiiRhHhOJQ4" & _
"jYQYQmSSRmFOFZlCkUhehMJZJC4VYYmWaYGFqF5ljkQhChcZh5jYKoZiYSY6D2HAmgmVhWhqJYJkYeoLieCYyHuHInEmSoAh8Zgplof4SA2OQqgKIZPAmBgciOYYaEIH" & _
"YkmQFAEIC"
	.VisualAppearance.Add 2,"gBFLBCJwBAEHhEJAEGg4BVMIQAAYAQGKIYBkAKBQAGaAoDDYMwzQwAAxjOK0EwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBSFDcOwHGyQYDkCQpE" & _
"hyKo+CTIAySXJsdw3IyNAIhEB4fgmM4DP7UIAVC78aRABCESgNEwzULUchlDDICJQSQRGzHDSKYDFCCaKgOTI6kgicpJUt6PBtaovKoWOZBcJ3Xjed6vBgeASpQbEL6w" & _
"DCbfrjB6KY5eeDXXSkAkB"
	.VisualAppearance.Add 3,"gBFLBCJwBAEHhEJAEGg4BVUIQAAYAQGKIYBkAKBQAGaAoDDYMwzQwAAxjOK0EwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBSFDcOwHGyQYDkCQpE" & _
"hyKo+CTIAySXJsZxpHKaAIhEB4fgmRgAP7UNQVFLkEgRBIoDRMM5DVLIZQxSAiUIkERtRQ1CqBRQhGioDoyOgABhFZSUPKlIztO45DwbO56RrlWzONA8FzXdgDYYLQjA" & _
"cJwXA7awrAZ8P7iGBZBbtdQCgIA=="
	.BodyEventBackColor = &H1000000
	.Background(86) = &H2000000
	.Background(85) = &H3000000
	.HeaderAllDayEventHeight = -14
	.Events.Add(#5/8/2012#,#5/17/2012#).AllDayEvent = True
	.EndUpdate 
End With
175
How can I select programatically two weeks

With Schedule1
	With .Calendar
		.SelectDate(#5/8/2012#) = True
		.Select 3
		.SelectDate(#5/15/2012#) = False
		.Select 19 ' SelectCalendarDateEnum.exSelectToggle Or SelectCalendarDateEnum.exSelectWeek
	End With
End With
174
Is it possible to show the All-Day events with EBN including the next/prev signs (1)

With Schedule1
	.BeginUpdate 
	.OnResizeControl = 2048
	.ShowAllDayHeader = True
	With .Calendar
		.FirstWeekDay = 1
		.SelectDate(#5/8/2012#) = True
		.Select 3
		.SelectDate(#5/15/2012#) = False
		.Select 19 ' SelectCalendarDateEnum.exSelectToggle Or SelectCalendarDateEnum.exSelectWeek
	End With
	.VisualAppearance.Add 1,"gBFLBCJwBAEHhEJAEGg4BbkMQAAYAQGKIYBkAKBQAGaAoDDcOILQiMQzjTBMKgBBCLIxiGK4DhiF4aRSBMIwYAAYhyG4BIRGcYJEDMOQzR4MICSBKkMhlDiPY5mUAJE" & _
"iSJg3TDQlzpAoSGoeUhGTZnQaQASXJqKZ6kegoEh4MopTTHQLRUB8EyTDKnaapSJpEDINQlWTZciDKKFUQTNi3KxraKqbjqO47VJKEpSZBMXRhBIYZCueZZXgPBY5YhI" & _
"E64BSeASoACDZzoaAwTrOAwUZZFVg2DSOGSBRzQMKrCZKagnFYDVzleYxLjdR47Qy1Ih2GA7QqubYkUTmOjgBaoAYxQaaLx0OS5Rj4NAwZLFXI1eAGd6BDLhLz4XAOHx" & _
"HjmAZvGOWoeG8PhBiMGIMGOQxZCQOBpGUG4NncEIdB8MxLhSbpRnMIIIEkQJSGMOgdE4RhfAwJZtAwEIEleeQZA2EIQiECR2ludB8BgRYMAeKYDByB4DG5F4hBgTgWgU" & _
"YYIFIGoFmGOBlAmBJMmMQJwggYg4goJIJmIaImCWCpigiLgTgeYQYjYMoKiMOIyDSCIinQDggg2YxonYNYNGOEACDuD4jkifhFg4IQYkCW4RiQSQ2ECEhjiiRhHhOJQ4" & _
"jYQYQmSSRmFOFZlCkUhehMJZJC4VYYmWaYGFqF5ljkQhChcZh5jYKoZiYSY6D2HAmgmVhWhqJYJkYeoLieCYyHuHInEmSoAh8Zgplof4SA2OQqgKIZPAmBgciOYYaEIH" & _
"YkmQFAEIC"
	.VisualAppearance.Add 2,"gBFLBCJwBAEHhEJAEGg4BKMMQAAYAQGKIYBkAKBQAGaAoDDUNgwQwAAxDGKkEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBSFDcOwHGyQYDkCQpE" & _
"hyKo+CTIA4SXJsdxpI4EIRCSL6MgNf5PABTb7zTSgYANF6WRZgWgpTjcMJHTpYFIwHRdQwHLqoagqKZJAqMABQGiYZyHKcwMYgBZXJBEbbMNBtBIUIRtaxZBBiFzgUZY" & _
"EBnEbDN4YbapMhyLI2OZBcCOJQ4SCoW4GJ49J7KXgYZiHOLcfjcLovLq5fiOQ5CV5ZXROM6sQyzIKWaCzLL5PjKHInWrPNa3DJtDyXJzUNY9GScG6HBLhWB0czzXIuO4" & _
"djqXg4jUOo9j8N4Zk6YoeA+bZKhcV49kyaAllODhPC8d5bi+WJ6H0fhvHcExIHgQB4nuHpOj4Y4zioeQfDePZRGcHI3lGIh9h4JwhkodQckecY9G+WpHDmUAdAeNwCBE" & _
"fRcGaIZ/G2D52gWfR0iGRhFg8Y5iBYTQBICA="
	.VisualAppearance.Add 3,"gBFLBCJwBAEHhEJAEGg4BgsHQAAYAQGKIYBkAKBQAGaAoDDUNgwQwAAxDGKkEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBSFDcOwHGyQYDkCQpE" & _
"hyKo+CTIA4SXJsZxpI6EQQhEJIfo2Az/VAAFQPfLNKhgAyXZZFWBaCoaEgwUhVMhUVAdGR1BKvKjqKoZcomCRQGiYZyHKcwMYgBZRRBEbbMNBtBIULasWjQYhdYI7WDT" & _
"dR4XhmGDkPBtcbbPDcUpBBSLOAjSSOExzILhSrFVyXVzTXL5XDGMg7Wa5foFIDmPRtVbWNydLyvICOJK2eZOExrHrhWrPMZaRpnUyXJ6pcBvfA4Zi7QZlWjPOR2aoNCZ" & _
"bjuXpyjsPIahmYJ/keVR0HwPYsnIXQ4mSZ50jwXIfC+HxnmmcZ2HuCAOn+P43lSUZ1neXxeF4L4bmgeoeCcCZEHcXxIAGLBlBuBpphsdgfGaNB0B6WwXjoARrE+dxVkY" & _
"ageAgHgUD+XJWm2U4GliNhJhIQBAICA=="
	.BodyEventBackColor = &H1000000
	.Background(86) = &H2000000
	.Background(85) = &H3000000
	.HeaderAllDayEventHeight = -20
	.Events.Add(#5/8/2012#,#5/17/2012#).AllDayEvent = True
	.EndUpdate 
End With
173
Can I make it zoom in using CTRL-MouseWheel instead of using the middle button
With Schedule1
	.AllowResizeSchedule = 19 ' AllowKeysEnum.exCTRLKey Or AllowKeysEnum.exMiddleClick
End With
172
It is by default not possible, to simply scroll the component with the mouse wheel. How do I make it so
With Schedule1
	.AllowMoveSchedule = 3
End With
171
Can I get and set the width of the time bar
With Schedule1
	.TimeScales.Item(0).Width = 48
End With
170
How do I select the current year

With Schedule1
	.ShowViewCompact = -1
	.OnResizeControl = 2048
	.Calendar.Select 1
End With
169
How do I select the current week day

With Schedule1
	.ShowViewCompact = -1
	.Calendar.Select 4
End With
168
How do I select the current week

With Schedule1
	.ShowViewCompact = -1
	.Calendar.Select 3
End With
167
How can I restore the layout of the panels, when user changes the width and the alignment of the panels
' LayoutEndChanging event - Notifies your application once the control's layout has been changed.
Private Sub Schedule1_LayoutEndChanging(ByVal Operation As Long)
	With Schedule1
		Debug.Print( "End Operation " )
		Debug.Print( Operation )
		Debug.Print( "Layout " )
		Debug.Print( .OnResizeControl )
		Debug.Print( "PaneWidth(False)" )
		Debug.Print( .PaneWidth(False) )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub Schedule1_LayoutStartChanging(ByVal Operation As Long)
	With Schedule1
		Debug.Print( "Start Operation " )
		Debug.Print( Operation )
		Debug.Print( "Layout " )
		Debug.Print( .OnResizeControl )
		Debug.Print( "PaneWidth(False)" )
		Debug.Print( .PaneWidth(False) )
	End With
End Sub

' MouseMove event - Occurs when the user moves the mouse.
Private Sub Schedule1_MouseMove(ByVal Button As Integer,ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long)
	With Schedule1
		Debug.Print( "Layout " )
		Debug.Print( .OnResizeControl )
		Debug.Print( "PaneWidth(False)" )
		Debug.Print( .PaneWidth(False) )
	End With
End Sub


166
Is it possibly to set the column width of the group/person using the api

With Schedule1
	.BeginUpdate 
	.Calendar.Selection = #1/10/2001#
	.DisplayGroupingButton = True
	.ShowGroupingEvents = True
	.OnResizeControl = 3073 ' OnResizeControlEnum.exCalendarAutoHide Or OnResizeControlEnum.exCalendarFit Or OnResizeControlEnum.exResizePanelRight
	With .Groups
		With .Add(1,"Group 1")
			.Title = "First"
			.Visible = True
		End With
		With .Add(2,"Group 2")
			.Title = "Second"
			.Visible = True
		End With
	End With
	With .Events
		.Add(#1/10/2001 9:00:00 AM#,#1/10/2001 0:30:00 PM#).GroupID = 1
		.Add(#1/10/2001 10:00:00 AM#,#1/10/2001 1:00:00 PM#).GroupID = 2
	End With
	.Groups.Item(1).Width = 24
	.EndUpdate 
End With
165
When viewing the schedule by week or month and the month ends during the week (July 31, Tuesday -> August 1, Wednesday), the days continue down as a new week 'row'. When there is a change in month, is it possible to still show the full week without that break (compact)

With Schedule1
	.BeginUpdate 
	.OnResizeControl = 2048
	With .Calendar
		.Selection = #5/23/2012#
		.Selection = "month(value) in (5,6)"
	End With
	.ShowViewCompact = -1
	.EndUpdate 
End With
164
I want to change the default event tooltip. How can I do that

With Schedule1
	.DefaultEventTooltip = "<b>BEGIN:</b> <%=%1%><br><b>END:</b>: <%=%2%><br><b>LENGTH:</b> <%=((1:=int(0:= (date(%2)-date(%1)))) != 0 ? (=:1 + ' day(s)') " & _
": '') + (=:1 ? ' ' : '' ) + ((1:=int(0:=((=:0 - =:1 + 1/24/60/60/2)*24))) != 0 ? =:1 + ' hour(s)' : '' ) + (=:1 ? ' ' : '' ) + (" & _
"(1:=round((=:0 - =:1)*60)) != 0 ? =:1 + ' min(s)' : '')%>"
End With
163
How can I select the entire week for a specified date

With Schedule1
	.BeginUpdate 
	With .Calendar
		.NonworkingDays = 0
		.ShowNonMonthDays = False
		.FirstWeekDay = 0
		.Selection = #3/5/2012#
		.Selection = "(int((yearday(value) -1- ((7-weekday(value - yearday(value) + 1)) mod 7) )/7) = int((yearday(#3/5/2012#)-1)/7))"
	End With
	.BorderSelStyle = -1
	.Background(81) = RGB(240,240,240)
	.EndUpdate 
End With
162
I have noticed that I can drag bars from All-Day header to time-zone and reverse. Is it possible to prevent that

With Schedule1
	.BeginUpdate 
	.OnResizeControl = 2048
	.ShowAllDayHeader = True
	.AllowUpdateAllDayFlag = False
	.Calendar.Selection = #5/23/2012#
	.Calendar.Selection = "value in (#5/23/2012#,#5/24/2012#,#5/25/2012#)"
	With .Events
		.Add(#5/24/2012 10:00:00 AM#,#5/24/2012 0:00:00 PM#).ExtraLabel = "<sha>dentist"
		.Add(#5/24/2012#,#5/25/2012#).AllDayEvent = True
		.Add(#5/23/2012#,#5/24/2012#).AllDayEvent = True
	End With
	.SelectEventStyle = -1
	.ShowSelectEvent = False
	.EndUpdate 
End With
161
When an all-day event stretches over multiple days (ex. Monday thru Friday), is it possible to have that display as a continuous bar across those days instead of separate bars on each day

With Schedule1
	.BeginUpdate 
	.OnResizeControl = 2048
	.ShowAllDayHeader = True
	.Calendar.Selection = #5/23/2012#
	.Calendar.Selection = "value in (#5/23/2012#,#5/24/2012#,#5/25/2012#)"
	With .Events
		.Add(#5/24/2012 10:00:00 AM#,#5/24/2012 0:00:00 PM#).ExtraLabel = "<sha>dentist"
		.Add(#5/24/2012#,#5/25/2012#).AllDayEvent = True
		.Add(#5/23/2012#,#5/24/2012#).AllDayEvent = True
	End With
	.SelectEventStyle = -1
	.ShowSelectEvent = False
	.EndUpdate 
End With
160
If I double click to a scheduled event and enter text, how can I read this newly entered text (i.e. what is its corresponding field)

' LayoutEndChanging event - Notifies your application once the control's layout has been changed.
Private Sub Schedule1_LayoutEndChanging(ByVal Operation As Long)
	With Schedule1
		Debug.Print( .EventFromPoint(-1,-1) )
	End With
End Sub

With Schedule1
	.BeginUpdate 
	.Calendar.Selection = #5/24/2012#
	With .Events
		.Add(#5/24/2012 10:00:00 AM#,#5/24/2012 0:00:00 PM#).ExtraLabel = "editable"
	End With
	.SelectEventStyle = -1
	.ShowSelectEvent = False
	.EndUpdate 
End With
159
Is it possible to show the date's header with a shadow

With Schedule1
	.HeaderDayLongLabel = "<sha><%dddd%>, <%mmmm%> <%d%>, <%yyyy%>"
	.Calendar.OnSelectDate = 1
	.AllowResizeSchedule = 0
End With
158
We need to highlight a day for example no booking/disabling for that day, is the timezone good choice (method 3)

With Schedule1
	With .Calendar
		.Selection = #6/27/2012#
		.Selection = "value in (#6/26/2012#,#6/27/2012#,#6/28/2012#)"
	End With
	.AllowMultiDaysEvent = False
	.NonworkingPatterns.Add(1,1).Pattern.Color = RGB(240,240,240)
	.NonworkingTimes.Add "value in (#6/27/2012#)","00:00","24:00",1
	.ShowNonworkingTime = 1
	.Calendar.DisableZoneFormat = "value in (#6/27/2012#)"
End With
157
We need to highlight a day for example no booking for that day, is the timezone good choice (method 2)

With Schedule1
	With .Calendar
		.Selection = #6/27/2012#
		.Selection = "value in (#6/26/2012#,#6/27/2012#,#6/28/2012#)"
	End With
	.NonworkingPatterns.Add(1,1).Pattern.Color = RGB(240,240,240)
	.NonworkingTimes.Add "value in (#6/27/2012#)","00:00","24:00",1
	.ShowNonworkingTime = 1
End With
156
We need to highlight a day for example no booking for that day, is the timezone good choice (method 1)

With Schedule1
	With .Calendar
		.Selection = #6/27/2012#
		.Selection = "value in (#6/26/2012#,#6/27/2012#,#6/28/2012#)"
	End With
	With .MarkZones.Add("zone",#6/27/2012#,#6/28/2012#)
		.BackColor = RGB(240,240,240)
		.Pattern.Type = 0
	End With
	.ShowMarkZone = 1
End With
155
Is is possible to change the background color for a specific day

With Schedule1
	With .Calendar
		.Selection = #6/27/2012#
		.Selection = "value in (#6/26/2012#,#6/27/2012#,#6/28/2012#)"
	End With
	With .MarkZones.Add("zone",#6/27/2012#,#6/28/2012#)
		.BackColor = RGB(240,240,240)
		.Pattern.Type = 0
	End With
	.ShowMarkZone = 1
End With
154
I want to know how can I call a user define form when editing a time slot
' LayoutEndChanging event - Notifies your application once the control's layout has been changed.
Private Sub Schedule1_LayoutEndChanging(ByVal Operation As Long)
	With Schedule1
		Debug.Print( "End exScheduleResize(5)" )
		Debug.Print( Operation )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub Schedule1_LayoutStartChanging(ByVal Operation As Long)
	With Schedule1
		Debug.Print( "Start exScheduleResize(5)" )
		Debug.Print( Operation )
	End With
End Sub

With Schedule1
	With .Calendar
		.SingleSel = True
		.OnSelectDate = 1
	End With
	.ClipToSel = True
	.AllowMoveSchedule = 0
	.AllowMoveGroup = 0
	.AllowResizeSchedule = 1
	.AllowCreateEvent = 0
End With
153
Can we lock the scroll bars so that it only scrolls within the selected date

With Schedule1
	With .Calendar
		.Selection = #6/1/2001#
		.Selection = "value in (#6/11/2001#,#6/12/2001#)"
		.SingleSel = True
		.OnSelectDate = 1
	End With
	.ClipToSel = True
	.DayViewWidth = -1
	.DayViewHeight = 512
	With .Events
		.Add #6/11/2001 10:00:00 AM#,#6/11/2001 1:00:00 PM#
		.Add #6/12/2001 10:00:00 AM#,#6/12/2001 1:00:00 PM#
	End With
End With
152
Is it possible to specify the dates to be printed to a single page

With Schedule1
	With .Calendar
		.Selection = #6/1/2001#
		.Selection = "value in (#6/11/2001#,#6/12/2001#)"
	End With
	.DayViewWidth = 116
	.DayViewHeight = 116
	With .Events
		.Add #6/11/2001 10:00:00 AM#,#6/11/2001 1:00:00 PM#
		.Add #6/12/2001 10:00:00 AM#,#6/12/2001 1:00:00 PM#
	End With
	With CreateObject("Exontrol.Print")
		.Options = "Range=month(value)=6;FitToPage=On"
		.PrintExt = Schedule1.Object
		.Preview 
	End With
End With
151
Is it possible to specify the dates to be printed

With Schedule1
	With .Calendar
		.Selection = #6/1/2001#
		.Selection = "value in (#6/11/2001#,#6/12/2001#)"
	End With
	.DayViewWidth = 116
	.DayViewHeight = 116
	With .Events
		.Add #6/11/2001 10:00:00 AM#,#6/11/2001 1:00:00 PM#
		.Add #6/12/2001 10:00:00 AM#,#6/12/2001 1:00:00 PM#
	End With
	With CreateObject("Exontrol.Print")
		.Options = "Range=month(value)=6"
		.PrintExt = Schedule1.Object
		.Preview 
	End With
End With
150
Does your control support Fit-To-Page, while printing

With Schedule1
	With .Calendar
		.Selection = #6/1/2001#
		.Selection = "value in (#6/11/2001#,#6/12/2001#)"
	End With
	.DayViewWidth = 512
	.DayViewHeight = 512
	With .Events
		.Add #6/11/2001 10:00:00 AM#,#6/11/2001 1:00:00 PM#
		.Add #6/12/2001 10:00:00 AM#,#6/12/2001 1:00:00 PM#
	End With
	With CreateObject("Exontrol.Print")
		.Options = "FitToPage=On"
		.PrintExt = Schedule1.Object
		.Preview 
	End With
End With
149
Does your control support Print and Print-Preview

With Schedule1
	With .Calendar
		.Selection = #6/1/2001#
		.Selection = "value in (#6/11/2001#,#6/12/2001#)"
	End With
	.DayViewWidth = 512
	.DayViewHeight = 512
	With .Events
		.Add #6/11/2001 10:00:00 AM#,#6/11/2001 1:00:00 PM#
		.Add #6/12/2001 10:00:00 AM#,#6/12/2001 1:00:00 PM#
	End With
	With CreateObject("Exontrol.Print")
		.PrintExt = Schedule1.Object
		.Preview 
	End With
End With
148
How can I specify the height (time slot) of the day to be larger
With Schedule1
	.BeginUpdate 
	.ClipToSel = True
	.DayViewHeight = 1024
	.DayViewWidth = -1
	.TimeScales.Item(0).MinorTimeRuler = "00:05"
	.EndUpdate 
End With
147
How can I prevent resizing the schedule view, when a new date is selected
With Schedule1
	With .Calendar
		.OnSelectDate = 1
		.Selection = #1/10/2001#
		.SingleSel = True
	End With
	.DayViewWidth = 48
End With
146
How do I get notified once the user moves an event
' UpdateEvent event - Notifies your application once the event changes the starting or ending margins.
Private Sub Schedule1_UpdateEvent(ByVal Ev As Object)
	With Schedule1
		Debug.Print( "UpdateEvent" )
		Debug.Print( Ev )
	End With
End Sub

With Schedule1
	.SelectEventStyle = 48
	.DefaultEventLongLabel = "<%=%256%><br><%=%5%>"
	.DefaultEventShortLabel = .DefaultEventLongLabel
	.Calendar.Selection = #1/10/2001#
	.OnResizeControl = 3073 ' OnResizeControlEnum.exCalendarAutoHide Or OnResizeControlEnum.exCalendarFit Or OnResizeControlEnum.exResizePanelRight
	With .Events
		With .Add(#1/10/2001 9:00:00 AM#,#1/10/2001 0:30:00 PM#)
			.Editable = 1
			.Caption = "your caption"
		End With
		With .Add(#1/10/2001 10:00:00 AM#,#1/10/2001 1:00:00 PM#)
			.Editable = 1
			.Caption = "other caption"
		End With
	End With
End With
145
Can You give me an example for the event handler when a user double clicks an appointment
' DblClick event - Occurs when the user dblclk the left mouse button over an object.
Private Sub Schedule1_DblClick(ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long)
	With Schedule1
		Set e = .EventFromPoint(-1,-1)
		Debug.Print( "Start:" )
		Debug.Print( e )
		Debug.Print( "End:" )
		Debug.Print( e )
	End With
End Sub

With Schedule1
	.AllowEditEvent = 0
	.AllowToggleSchedule = 0
	With .Calendar
		.Selection = #6/1/2001#
		.Selection = "value in (#6/11/2001#,#6/12/2001#,#6/13/2001#)"
	End With
	With .Events
		.Add #6/11/2001 10:00:00 AM#,#6/11/2001 1:00:00 PM#
		.Add #6/12/2001 10:00:00 AM#,#6/12/2001 1:00:00 PM#
	End With
End With
144
Nothing is shown in the schedule view, if I use the Selection property. What am I doing wrong

With Schedule1
	With .Calendar
		.Selection = #6/1/2001#
		.Selection = "value in (#6/11/2001#,#6/12/2001#,#6/13/2001#)"
	End With
End With
143
Is it possible to lock a date/day, so no events can be created, moved, and so on

With Schedule1
	With .Calendar
		.Selection = #6/1/2001#
		.Selection = "value in (#6/11/2001#,#6/12/2001#,#6/13/2001#)"
		.DisableZoneFormat = "value = #6/12/2001#"
	End With
	With .Events
		.Add #6/11/2001 10:00:00 AM#,#6/11/2001 1:00:00 PM#
		.Add #6/12/2001 10:00:00 AM#,#6/12/2001 1:00:00 PM#
	End With
End With
142
How can I show the grid lines for minor and major rules in the schedule view

With Schedule1
	.Background(54) = RGB(0,0,0)
	.Background(53) = RGB(192,192,192)
	.Background(50) = RGB(0,0,0)
	.Background(49) = RGB(192,192,192)
	.Background(56) = RGB(3,0,0)
	.Background(52) = RGB(3,0,0)
End With
141
Is it possible to show the grid lines for minor rulers too in the schedule view

With Schedule1
	.Background(56) = RGB(3,0,0)
End With
140
How can I change the style and colors to show the grid lines

With Schedule1
	.Background(54) = RGB(48,0,0)
	.Background(53) = RGB(255,0,0)
	.Background(50) = RGB(3,0,0)
	.Background(49) = RGB(255,0,0)
End With
139
How can I show a solid line rather than dot lines in the schedule view

With Schedule1
	.Background(54) = RGB(48,0,0)
	.Background(53) = RGB(0,0,0)
End With
138
Is it possible to hide or change the lines in the schedule view

With Schedule1
	.Background(54) = -1
End With
137
Is there a possiblity to lock an event, so it can't be moved or edited

With Schedule1
	.Calendar.Selection = #6/27/2012#
	With .Events
		With .Add(#6/27/2012 10:00:00 AM#,#6/27/2012 11:30:00 AM#)
			.BodyPattern.Type = 6
			.Movable = False
			.Resizable = 0
			.Selectable = False
			.Editable = 0
			.ExtraLabel = "locked"
		End With
		.Add #6/27/2012 1:30:00 PM#,#6/27/2012 3:30:00 PM#
	End With
End With
136
Is it possible to load a PNG file on the control's background ( /com only )

With Schedule1
	.Template = "Picture = LoadPicture(`c:\exontrol\images\card.png`)"
End With
135
What is the Event.UserData property used for

With Schedule1
	.Calendar.Selection = #6/27/2012#
	.DefaultEventTooltip = "Start: <%=%1%><br>End: <%=%2%><br>Duration: <%=((1:=int(0:= (date(%2)-date(%1)))) != 0 ? (=:1 + ' day(s)') : '') + (=:1 ? ' ' :" & _
" '' ) + ((1:=int(0:=((=:0 - =:1 + 1/24/60/60/2)*24))) != 0 ? =:1 + ' hour(s)' : '' ) + (=:1 ? ' ' : '' ) + ((1:=round((=:0 - =:1" & _
")*60)) != 0 ? =:1 + ' min(s)' : '')%><b><%=(len(%6) ? `<br>UserData: `+ %6 : ``)%></b>"
	With .Events
		.Add(#6/27/2012 11:00:00 AM#,#6/27/2012 0:30:00 PM#).UserData = "Any extra data associated with the event"
		.Add #6/27/2012 11:30:00 AM#,#6/27/2012 1:30:00 PM#
	End With
End With
134
Is there also an event for when a user selects another month in the date-picker control
' LayoutEndChanging event - Notifies your application once the control's layout has been changed.
Private Sub Schedule1_LayoutEndChanging(ByVal Operation As Long)
	With Schedule1
		Debug.Print( "End exCalendarDateChange(3)" )
		Debug.Print( Operation )
		Debug.Print( "Currently browsing date:" )
		Debug.Print( .Calendar.Date )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub Schedule1_LayoutStartChanging(ByVal Operation As Long)
	With Schedule1
		Debug.Print( "Start exCalendarDateChange(3)" )
		Debug.Print( Operation )
		Debug.Print( "Previously browsing date:" )
		Debug.Print( .Calendar.Date )
	End With
End Sub


133
How can I display the time-zone behind or back (method 2)

With Schedule1
	.Calendar.Selection = #6/27/2012#
	With .MarkZones.Add("zone",#6/27/2012 10:30:00 AM#,#6/27/2012 1:00:00 PM#)
		.LongLabel = "zone"
		With .Pattern
			.Type = 6
			.Color = RGB(40,40,40)
		End With
	End With
	.ShowMarkZone = 3
	.Events.Add #6/27/2012 11:00:00 AM#,#6/27/2012 0:30:00 PM#
End With
132
How can I display the time-zone behind or back (method 1)

With Schedule1
	.Calendar.Selection = #6/27/2012#
	.MarkZones.Add("zone",#6/27/2012 10:30:00 AM#,#6/27/2012 1:00:00 PM#).LongLabel = "zone"
	.ShowMarkZone = 1
	.Events.Add #6/27/2012 11:00:00 AM#,#6/27/2012 0:30:00 PM#
End With
131
How can I add a time-zone

With Schedule1
	.Calendar.Selection = #6/27/2012#
	.MarkZones.Add("zone",#6/27/2012 10:30:00 AM#,#6/27/2012 1:00:00 PM#).LongLabel = "zone"
End With
130
How can I specify a larger height for the timer, or it is possible to make it bigger

With Schedule1
	.BeginUpdate 
	.Calendar.Selection = #5/24/2012#
	With .VisualAppearance
		.Add 1,"gBFLBCJwBAEHhEJAEGg4BC0MQAAYAQGKIYBkAKBQAGaAoDDUOQzQwAAxDGKUEwsACEIrjKCYVgOHYYQjGMZwHIUIhkGoSZKlCIRVDCKYJSzLcZAFIMRwSBiEQTmaa4W" & _
"iKIgIQiUBomGahajkMoYZCYKKSCI2S4aDZCIoTPLMagxC5GJCnSJnITJCpdV7XVgWHYVSzDM6yEScZTkFqubZsW5cNwXHZ9azkQpyFRPe6bbrqfJ/X5gN64HgBfrEUo8" & _
"cLxHCMKw3DKPYrkOLHS4CQjnSrLcqzDK8ax3GafZwcbqKWbmR5LUjTNR1DS9Hy3Kh8O4sSDbDqeZZpW7bNx2Xa9YQZcS5JBvfA8BwXC6JY7heR4ZIHTT9GbNc7zXQdHx" & _
"LiuUZrnUEwvFYIoDjeXZuHePA+A8Hx/kuYhQD2WQqg8T4vlWbJ3nuPg+l+H5BFEASAg=="
		.Add 2,"CP:1 0 -3 0 3"
	End With
	With .MarkTimes.Add("timer1",#5/24/2012 11:15:00 AM#)
		.BackColor = &H1000000
		.Line = -1
		.Label = "default height"
		.LabelAlign = 34
	End With
	With .MarkTimes.Add("timer2",#5/24/2012 1:15:00 PM#)
		.BackColor = &H2000000
		.Line = -1
		.Label = "larger height"
		.LabelAlign = 34
	End With
	.EndUpdate 
End With
129
How I know what event was edited when it was edited by a user
' LayoutEndChanging event - Notifies your application once the control's layout has been changed.
Private Sub Schedule1_LayoutEndChanging(ByVal Operation As Long)
	With Schedule1
		Debug.Print( "End Operation exScheduleEditEvent(15)" )
		Debug.Print( Operation )
		Debug.Print( "Use the global member from LayoutStartChanging, and you got the Event being edited" )
	End With
End Sub

' LayoutStartChanging event - Occurs when the control's layout is about to be changed.
Private Sub Schedule1_LayoutStartChanging(ByVal Operation As Long)
	With Schedule1
		Debug.Print( "Start Operation exScheduleEditEvent(15)" )
		Debug.Print( Operation )
		Debug.Print( "Holds the EventFromPoint to a global member" )
		Debug.Print( .EventFromPoint(-1,-1) )
	End With
End Sub

With Schedule1
	.BeginUpdate 
	.SelectEventStyle = 816 ' LinesStyleEnum.exLinesThicker Or LinesStyleEnum.exLinesSolid
	.Calendar.Selection = #5/24/2012#
	With .Events
		.Add #5/24/2012 9:00:00 AM#,#5/24/2012 0:00:00 PM#
		.Add #5/24/2012 10:45:00 AM#,#5/24/2012 0:45:00 PM#
	End With
	.EndUpdate 
End With
128
What are timers in your exSchedule component

With Schedule1
	.BeginUpdate 
	.Calendar.Selection = #5/24/2012#
	With .MarkTimes.Add("timer1",#5/24/2012 8:35:00 AM#)
		.Label = "<fgcolor=808080>fixed timer"
		.LabelAlign = 1
		.Pattern.Type = 6
		.Pattern.Color = RGB(224,224,224)
	End With
	With .MarkTimes.Add("timer2",#5/24/2012 10:51:00 AM#)
		.Label = "<fgcolor=00FF00>movable timer"
		.Movable = True
		.BodyEventBackColor = RGB(128,255,128)
		.LineColor = RGB(0,240,15)
		.TimeScaleLineColor = RGB(0,255,0)
		.TimeScaleLabel = ""
		.Line = 780 ' LinesStyleEnum.exLinesThicker Or LinesStyleEnum.exLinesDash
		.Label = "<bgcolor=FFFFFF><fgcolor=00FF00><b><%hh%>:<%nn%> <%AM/PM%><br><%loc_sdate%>"
		.TimeScaleLine = 259 ' LinesStyleEnum.exLinesThick Or LinesStyleEnum.exLinesDot4
	End With
	With .Events
		.Add #5/24/2012 9:00:00 AM#,#5/24/2012 0:00:00 PM#
		.Add #5/24/2012 10:45:00 AM#,#5/24/2012 0:45:00 PM#
		.Add #5/24/2012 11:30:00 AM#,#5/24/2012 2:30:00 PM#
		.Add #5/24/2012 0:45:00 PM#,#5/24/2012 3:45:00 PM#
	End With
	.EndUpdate 
End With
127
How do I get the selected dates in the calendar panel
' LayoutEndChanging event - Notifies your application once the control's layout has been changed.
Private Sub Schedule1_LayoutEndChanging(ByVal Operation As Long)
	With Schedule1
		Debug.Print( "Operation: exScheduleSelectionChange(10)" )
		Debug.Print( Operation )
		Debug.Print( "Selected Event Count:" )
		Debug.Print( .SelCount )
		Debug.Print( "First Selected Event:" )
		Debug.Print( .SelEvent(0) )
	End With
End Sub

With Schedule1
	.Calendar.Selection = #1/1/2011#
	With .Events
		.Add #1/1/2011 10:00:00 AM#,#1/1/2011 11:30:00 AM#
		.Add #1/1/2011 11:30:00 AM#,#1/1/2011 1:30:00 PM#
	End With
End With
126
How do I get the selected dates in the calendar panel
' LayoutEndChanging event - Notifies your application once the control's layout has been changed.
Private Sub Schedule1_LayoutEndChanging(ByVal Operation As Long)
	With Schedule1
		Debug.Print( "Operation: exCalendarSelectionChange(1)" )
		Debug.Print( Operation )
		With .Calendar
			Debug.Print( "Selected Date Count:" )
			Debug.Print( .SelCount )
			Debug.Print( "First Selected Date:" )
			Debug.Print( .SelDate(0) )
		End With
	End With
End Sub


125
What is the easiest way to display a picture on my event

With Schedule1
	.Calendar.Selection = #5/24/2012#
	.Pictures.Add "pic1","c:\exontrol\images\zipdisk.gif"
	.Events.Add(#5/24/2012 9:00:00 AM#,#5/24/2012 2:00:00 PM#).Pictures = "pic1"
End With
124
How can I programmatically move a specified event
With Schedule1
	.BeginUpdate 
	.Calendar.Selection = #5/24/2012#
	.Events.Add(#5/24/2012 10:00:00 AM#,#5/24/2012 0:00:00 PM#).MoveBy "-00:15"
	.EndUpdate 
End With
123
How can I edit the event but still display its margins
' AddEvent event - Notifies your application once the a new event is added.
Private Sub Schedule1_AddEvent(ByVal Ev As Object)
	' Ev.Editable = 1
End Sub

With Schedule1
	.SelectEventStyle = 48
	.DefaultEventLongLabel = "<%=%256%><br><%=%5%>"
	.DefaultEventShortLabel = .DefaultEventLongLabel
	.Calendar.Selection = #1/10/2001#
	.OnResizeControl = 3073 ' OnResizeControlEnum.exCalendarAutoHide Or OnResizeControlEnum.exCalendarFit Or OnResizeControlEnum.exResizePanelRight
	With .Events
		With .Add(#1/10/2001 9:00:00 AM#,#1/10/2001 0:30:00 PM#)
			.Editable = 1
			.Caption = "your caption"
		End With
		With .Add(#1/10/2001 10:00:00 AM#,#1/10/2001 1:00:00 PM#)
			.Editable = 1
			.Caption = "other caption"
		End With
	End With
End With
122
How can I edit the events

' AddEvent event - Notifies your application once the a new event is added.
Private Sub Schedule1_AddEvent(ByVal Ev As Object)
	' Ev.Editable = 3
End Sub

With Schedule1
	.SelectEventStyle = 48
	.DefaultEventLongLabel = ""
	.DefaultEventShortLabel = ""
	.CreateEventLabel = ""
	.Calendar.Selection = #1/10/2001#
	.OnResizeControl = 3073 ' OnResizeControlEnum.exCalendarAutoHide Or OnResizeControlEnum.exCalendarFit Or OnResizeControlEnum.exResizePanelRight
	With .Events
		With .Add(#1/10/2001 9:00:00 AM#,#1/10/2001 0:30:00 PM#)
			.Editable = 3
			.LongLabel = "just your label"
		End With
		With .Add(#1/10/2001 10:00:00 AM#,#1/10/2001 1:00:00 PM#)
			.Editable = 3
			.LongLabel = "just another label"
		End With
	End With
End With
121
At the moment the scheduler only displays events from 8:00 am to 3:00 pm. How do I extend this time frame

With Schedule1
	.DayStartTime = "07:30"
	.DayEndTime = "14:30"
End With
120
How does localization work

With Schedule1
	With .Calendar
		.FirstWeekDay = .LocFirstWeekDay ' .LocFirstWeekDay
		.MonthNames = .LocMonthNames
		.WeekDays = .LocWeekDays
		.AMPM = .LocAMPM
	End With
End With
119
Is it possible to limit the calendar to one month only

With Schedule1
	.ScrollBars = 0
	.AllowMoveSchedule = 0
	With .Calendar
		.Selection = #1/10/2001#
		.MinDate = #1/1/2001#
		.MaxDate = #1/31/2001#
	End With
End With
118
How can I display a distingue text for repetitive events

With Schedule1
	.SelectEventStyle = 48
	.DefaultEventLongLabel = "<%=%256%><br><%=%264? `repetitive event`:``%>"
	.DefaultEventShortLabel = .DefaultEventLongLabel
	.Calendar.Selection = #1/10/2001#
	.OnResizeControl = 3073 ' OnResizeControlEnum.exCalendarAutoHide Or OnResizeControlEnum.exCalendarFit Or OnResizeControlEnum.exResizePanelRight
	With .Events
		.Add(#1/10/2001 9:00:00 AM#,#1/10/2001 0:30:00 PM#).Repetitive = "weekday(value) = 3"
		.Add #1/10/2001 10:00:00 AM#,#1/10/2001 1:00:00 PM#
	End With
End With
117
How can I display the event's duration on the body of the event

With Schedule1
	.SelectEventStyle = 48
	.DefaultEventLongLabel = "<%=%256%><br><%=((1:=int(0:= (date(%2)-date(%1)))) != 0 ? (=:1 + ' day(s)') : '') + (=:1 ? ' ' : '' ) + ((1:=int(0:=((=:0 - =:1" & _
" + 1/24/60/60/2)*24))) != 0 ? =:1 + ' hour(s)' : '' ) + (=:1 ? ' ' : '' ) + ((1:=round((=:0 - =:1)*60)) != 0 ? =:1 + ' min(s)' :" & _
" '')%>"
	.DefaultEventShortLabel = .DefaultEventLongLabel
	.Calendar.Selection = #1/10/2001#
	.OnResizeControl = 3073 ' OnResizeControlEnum.exCalendarAutoHide Or OnResizeControlEnum.exCalendarFit Or OnResizeControlEnum.exResizePanelRight
	With .Events
		.Add #1/10/2001 9:00:00 AM#,#1/10/2001 0:30:00 PM#
		.Add #1/10/2001 10:00:00 AM#,#1/10/2001 1:00:00 PM#
	End With
End With
116
The sample shows how the event's body can display automatically the UserData property of the event

With Schedule1
	.SelectEventStyle = 48
	.DefaultEventLongLabel = "<%=%256%><br><%=%6%>"
	.DefaultEventShortLabel = .DefaultEventLongLabel
	.Calendar.Selection = #1/10/2001#
	.OnResizeControl = 3073 ' OnResizeControlEnum.exCalendarAutoHide Or OnResizeControlEnum.exCalendarFit Or OnResizeControlEnum.exResizePanelRight
	With .Events
		.Add(#1/10/2001 9:00:00 AM#,#1/10/2001 0:30:00 PM#).UserData = "UserData 1"
		.Add(#1/10/2001 10:00:00 AM#,#1/10/2001 1:00:00 PM#).UserData = "UserData 2"
	End With
End With
115
The sample shows how the event's body can display automatically the Caption property of the event

With Schedule1
	.SelectEventStyle = 48
	.DefaultEventLongLabel = "<%=%256%><br><%=%5%>"
	.DefaultEventShortLabel = .DefaultEventLongLabel
	.Calendar.Selection = #1/10/2001#
	.OnResizeControl = 3073 ' OnResizeControlEnum.exCalendarAutoHide Or OnResizeControlEnum.exCalendarFit Or OnResizeControlEnum.exResizePanelRight
	With .Events
		.Add(#1/10/2001 9:00:00 AM#,#1/10/2001 0:30:00 PM#).Caption = "Event 1"
		.Add(#1/10/2001 10:00:00 AM#,#1/10/2001 1:00:00 PM#).Caption = "Event 2"
	End With
End With
114
The sample shows how the event's body can display automatically the group's ID, Caption and Title

With Schedule1
	.SelectEventStyle = 48
	.DefaultEventLongLabel = "Group's ID:<%=%4%><br>Group's Caption: <%=%262%><br>Group's Title: <%=%263%><br><%=%256%>"
	.DefaultEventShortLabel = .DefaultEventLongLabel
	.Calendar.Selection = #1/10/2001#
	.DisplayGroupingButton = True
	.ShowGroupingEvents = True
	.OnResizeControl = 3073 ' OnResizeControlEnum.exCalendarAutoHide Or OnResizeControlEnum.exCalendarFit Or OnResizeControlEnum.exResizePanelRight
	With .Groups
		With .Add(1,"Group 1")
			.Title = "First"
			.Visible = True
		End With
		With .Add(2,"Group 2")
			.Title = "Second"
			.Visible = True
		End With
	End With
	With .Events
		.Add(#1/10/2001 9:00:00 AM#,#1/10/2001 0:30:00 PM#).GroupID = 1
		.Add(#1/10/2001 10:00:00 AM#,#1/10/2001 1:00:00 PM#).GroupID = 2
	End With
End With
113
The following sample displays automatically an "All-Day-Event: " prefix for AllDayEvent events

With Schedule1
	.SelectEventStyle = 48
	.DefaultEventLongLabel = "<%=%3 ? `All-Day-Event: `: ``%><%=%256%>"
	.DefaultEventShortLabel = .DefaultEventLongLabel
	.Calendar.Selection = #1/10/2001#
	.OnResizeControl = 3073 ' OnResizeControlEnum.exCalendarAutoHide Or OnResizeControlEnum.exCalendarFit Or OnResizeControlEnum.exResizePanelRight
	With .Events
		.Add(#1/10/2001#,#1/10/2001#).AllDayEvent = True
		.Add #1/10/2001 10:00:00 AM#,#1/10/2001 1:00:00 PM#
	End With
End With
112
How can I use the calendar's LongTimeFormat

With Schedule1
	.SelectEventStyle = 48
	.DefaultEventLongLabel = "<%=%257%>"
	.DefaultEventShortLabel = "<%=%257%>"
	With .Calendar
		.Selection = #1/10/2001#
		.LongTimeFormat = "<%hh%>:<%nn%>:<%ss%>"
	End With
	.OnResizeControl = 3073 ' OnResizeControlEnum.exCalendarAutoHide Or OnResizeControlEnum.exCalendarFit Or OnResizeControlEnum.exResizePanelRight
	.Events.Add #1/10/2001 10:00:00 AM#,#1/11/2001 1:00:00 PM#
End With
111
How can I use the calendar's ShortTimeFormat. The sample displays the times in 24-hours format

With Schedule1
	.SelectEventStyle = 48
	.DefaultEventLongLabel = "<%=%256%>"
	.DefaultEventShortLabel = "<%=%256%>"
	.TimeScales.Item(0).MajorTimeLabel = "<%hh%>:<%nn%>"
	With .Calendar
		.Selection = #1/10/2001#
		.ShortTimeFormat = "<%h%>:<%nn%>"
	End With
	.OnResizeControl = 3073 ' OnResizeControlEnum.exCalendarAutoHide Or OnResizeControlEnum.exCalendarFit Or OnResizeControlEnum.exResizePanelRight
	.Events.Add #1/10/2001 10:00:00 AM#,#1/10/2001 1:00:00 PM#
End With
110
How can I use the calendar's ShortDateFormat

With Schedule1
	.SelectEventStyle = 48
	.DefaultEventLongLabel = "<%=%256%>"
	.DefaultEventShortLabel = "<%=%256%>"
	With .Calendar
		.Selection = #1/10/2001#
		.ShortDateFormat = "<%loc_d2%>, <%loc_m2%> <%d%>, <%yy%>"
	End With
	.OnResizeControl = 3073 ' OnResizeControlEnum.exCalendarAutoHide Or OnResizeControlEnum.exCalendarFit Or OnResizeControlEnum.exResizePanelRight
	.Events.Add(#1/10/2001 10:00:00 AM#,#1/10/2001 1:00:00 PM#).AllDayEvent = True
End With
109
How can I use the calendar's LongDateFormat

With Schedule1
	.SelectEventStyle = 48
	.DefaultEventLongLabel = "<%=%257%>"
	.DefaultEventShortLabel = "<%=%257%>"
	With .Calendar
		.Selection = #1/10/2001#
		.LongDateFormat = "<%loc_dddd%>, <%loc_mmm%> <%d%>, <%yyyy%>"
	End With
	.OnResizeControl = 3073 ' OnResizeControlEnum.exCalendarAutoHide Or OnResizeControlEnum.exCalendarFit Or OnResizeControlEnum.exResizePanelRight
	.Events.Add(#1/10/2001 10:00:00 AM#,#1/10/2001 1:00:00 PM#).AllDayEvent = True
End With
108
Is it possible to prevent updating events

With Schedule1
	.SelectEventStyle = 48
	.AllowUpdateDisableZone = False
	With .Calendar
		.ShowNonMonthDays = False
		.Selection = #1/9/2001#
		.DisableZoneFormat = "value >= #1/11/2001#"
		.MinDate = #1/1/2001#
	End With
	With .Events
		.Add #1/10/2001 10:00:00 AM#,#1/10/2001 1:00:00 PM#
		.Add #1/11/2001 10:00:00 AM#,#1/11/2001 1:00:00 PM#
	End With
End With
107
How can I specify that after editing the caption should be on top ( method 2 )

With Schedule1
	.DefaultEventLongLabel = ""
	.DefaultEventShortLabel = .DefaultEventLongLabel
	.SelectEventStyle = 48
	With .Calendar
		.ShowNonMonthDays = False
		.Selection = #1/1/2001#
	End With
	With .Events
		With .Add(#1/1/2001 10:00:00 AM#,#1/1/2001 1:00:00 PM#)
			.ExtraLabel = "title"
			.ExtraLabelAlign = 0
		End With
	End With
End With
106
How can I specify that after editing the caption should be on top ( method 1 )

With Schedule1
	.DefaultEventLongLabel = ""
	.DefaultEventShortLabel = .DefaultEventLongLabel
	.SelectEventStyle = 48
	With .Calendar
		.ShowNonMonthDays = False
		.Selection = #1/1/2001#
	End With
	With .Events
		With .Add(#1/1/2001 10:00:00 AM#,#1/1/2001 1:00:00 PM#)
			.LongLabel = "title"
			.Editable = 3
		End With
	End With
End With
105
How can I get ride or hide the of the calendar's grid lines

With Schedule1
	With .Calendar
		.ShowNonMonthDays = False
		.Selection = #1/1/2001#
		.ShowGridLines = -1
	End With
End With
104
How can I programmatically select a single date ( method 2 )

With Schedule1
	.Calendar.Selection = #1/1/2012#
End With
103
How can I programmatically select a single date ( method 1 )

With Schedule1
	With .Calendar
		.Selection = "0"
		.SelectDate(#1/1/2012#) = True
	End With
End With
102
How can I prevent showing the Today button, in the calendar panel

With Schedule1
	.OnResizeControl = 256
	.Calendar.ShowTodayButton = False
End With
101
How can I display just the calendar panel, not including the schedule panel

With Schedule1
	.OnResizeControl = 256
End With